Дано целое число N и набор из n целых чисел.найти общее количество минимальных и максимальных элементов из данного набора- Pascal(Паскаль)

uses crt;
var a:array [1..100] of integer;
    i,n,min,max,s1,s:integer;
begin
write('n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
s:=0;
min:=a[1];
for i:=1 to n do begin
    if a[i]<min then begin
    min:=a[i];
    end; end;
for i:=1 to n do begin
    if a[i]=min then begin
    s:=s+1;
    end;
end;
max:=a[1];
for i:=1 to n do begin
    if a[i]>max then begin
    max:=a[i];
    end;    end;
for i:=1 to n do begin
    if a[i]=max then begin
    s1:=s1+1;
    end;  end;
 
writeln('Минимальных элементов - ',s);
writeln('Максимальных элементов - ',s1);
readln;
end.